10 IFPEEK(828)<>160THENLOAD"MSP-SORT*",8,1
20 DIMB$(850):X=0:LA$="VIDEO.DAT":GOTO50
30 POKE198,0:WAIT198,1:POKE198,0:RETURN
40 PRINT"[147]       DATEN WERDEN SORTIERT!":B$(X+1)="":SYS828:GOTO300
50 POKE53281,11:POKE53280,11
60 PRINT"[147]   [158]VIDEO-DATEI NACH NUMMERN SORTIEREN   "
70 PRINT" EINE NACH TITELN SORTIERTE DATEI WIRD"
80 PRINT" DURCH DIESES PROGRAMM NACH DEN BAND- "
90 PRINT" NUMMERN SORTIERT, DIE DATEN WERDEN   "
100 PRINT" (AUF WUNSCH) ANGEZEIGT UND AUF LW 9  "
110 PRINT" GESPEICHERT. ANSCHLIESSEND KOENNEN   "
120 PRINT" DIE DATENSAETZE GEDRUCKT WERDEN (OP- "
130 PRINT" TIONAL)."
140 PRINT" LAUFWERK 8 (QUELL-) UND 9 (ZIEL-DATEI) [146]            EINSCHALTEN!"
150 GETQR$:IFQR$=""THEN150
160 IFQR$="E"THENEND
170 IFQR$=CHR$(140)THEN510
180 KA$="":INPUT"[158]WELCHE DATEI AENDERN ";KA$:IFKA$=""THEN200
190 LA$=LA$+"."+KA$
200 PRINT"LADEN";
210 OPEN2,8,2,LA$+",S,R":LW=8:GOSUB840
220 OPEN2,8,2,LA$+",S,R"
230 INPUT#2,S$:RE=(LEN(S$)-32):PRINT"[153]"X
240 AF$="000"+RIGHT$(S$,RE)
250 AF$=RIGHT$(AF$,4)
260 B$(X)=AF$+LEFT$(S$,32)
270 IFST<>64THENX=X+1:GOTO230
280 CLOSE2
290 GOTO40
300 PRINT"[147][158] DATEN ANZEIGEN ?"
310 GETAZ$:IFAZ$<>"J"ANDAZ$<>"N"THEN310
320 IFAZ$="N"ANDNU=1THEN410
330 IFAZ$="N"THEN360
340 PRINT"[147]":FORT=0TOX:IFT>0THENIF(T/20)=INT(T/20)THENGOSUB30:PRINT"[147]"
350 PRINTLEFT$(B$(T),4)" "MID$(B$(T),5,30)" "RIGHT$(B$(T),2):NEXT:GOSUB30:IFNU=1THEN410
360 PRINT"[147]SPEICHERN"
370 OPEN2,9,2,LA$+",S,W":LW=9:GOSUB840
380 OPEN2,9,2,LA$+",S,W"
390 FORT=0TOX:PRINT#2,B$(T):PRINT"[153] "T:NEXT
400 CLOSE2:OPEN15,8,15:CLOSE15
410 PRINT"[147]DRUCKEN ?"
420 GETDR$:IFDR$<>"J"ANDDR$<>"N"THEN420
430 IFDR$="N"THENEND
440 PRINT"   BITTE DRUCKER EINSCHALTEN ! "
450 GOSUB30
460 OPEN4,4:FORT=0TOX
470 PRINT#4,"     "LEFT$(B$(T),4)"  "MID$(B$(T),5,30)"  "RIGHT$(B$(T),2)
480 IFLEFT$(B$(T+1),4)<>LEFT$(B$(T),4)THENPRINT#4
490 NEXT
500 PRINT#4:CLOSE4:END
510 FORT=13TO14:POKE781,T:SYS59903:NEXT:PRINT"[155]"
520 A$="EINE NACH NUMMERN SORTIERTE DATEI KANN":GOSUB630
530 A$="   MIT DIESEM PROGRAMM GELADEN,       ":GOSUB630
540 A$=" ANGESEHEN UND GEDRUCKT WERDEN.       ":GOSUB630
550 A$=" DAFUER JETZT BITTE DIE DISKETTE MIT  ":GOSUB630
560 A$=" DER NUMERISCHEN DATEI IN DAS         ":GOSUB630
570 A$=" LAUFWERK 8 LEGEN !                   ":GOSUB630:PRINT"";
580 A$=" <ZURUECK MIT F8!>                    ":GOSUB630
590 GETZU$:IFZU$=""THEN590
600 IFZU$=CHR$(140)THEN60
610 IFZU$="E"THENEND
620 GOTO640
630 FORT=1TO38:PRINTMID$(A$,T,1);:FORU=1TO40:NEXT:NEXT:PRINT:RETURN
640 KA$="":INPUT"[158]WELCHE DATEI LADEN ";KA$:IFKA$=""THEN670
650 IFKA$="E"THENEND
660 LA$=LA$+"."+KA$
670 PRINT"LADEN";
680 OPEN2,8,2,LA$+",S,R":LW=8:GOSUB840
690 OPEN2,8,2,LA$+",S,R"
700 INPUT#2,B$(X):IFASC(B$(X))<48ORASC(B$(X))>57THEN750
710 PRINT"[153]"X
720 IFST<>64THENX=X+1:GOTO700
730 CLOSE2
740 NU=1:GOTO300
750 GOSUB760:GOTO770
760 FORT=3TO12:POKE781,T:SYS59903:NEXT:PRINT"":RETURN
770 PRINT:PRINT"[150] KEINE NUMERISCHE DATEI ! [146]":CLOSE2
780 PRINT"MIT                   ":PRINT"<F1> ZUM UMSORTIEREN"
790 PRINT"<F8> ZUR NAMEN-EINGABE":PRINT"<E > PROGRAMM BEENDEN"
800 GETFE$:IFFE$<>CHR$(133)ANDFE$<>CHR$(140)ANDFE$<>"E"THEN800
810 IFFE$=CHR$(133)THEN60
820 IFFE$=CHR$(140)THENGOSUB760:PRINT"":GOTO640
830 PRINT"":END
840 OPEN15,LW,15:INPUT#15,AA,BB$,CC,DD
850 IFAA<>0THENGOSUB760:PRINT"[150] FEHLER ! ":CLOSE2:CLOSE15:GOTO870
860 CLOSE2:CLOSE15:RETURN
870 IFLW=9THENIFBB$="FILE EXISTS"THEN900
880 PRINT"BITTE DEN DATEI-NAMEN PRUEFEN UND":PRINT"DANN DAS PROGRAMM NEU STARTEN!"
890 END
900 PRINT""BB$" - FILE LOESCHEN ?"
910 GETLL$:IFLL$<>"J"ANDLL$<>"N"THEN910
920 IFLL$="N"THENEND
930 OPEN15,9,15,"S:"+LA$:CLOSE15:RETURN